function ValueResult=FilterFourthLevelEditorsCoAuthors(n1)
    
% n1=2;
ValueFolderTemp2='C:\Users\Remy Neveu\Desktop\Etude IRM\Analyse\cc in2p3\Nature\ResultsEditor\ResultsUnfiltered\';
load([ValueFolderTemp2 'FileAnalysisEditorCoAuthors' num2str(n1) 'RestrictedYear2Month8.mat']);
ValueTime=clock();
disp(['Start of the processing at ' num2str(ValueTime(1,4)) ':' num2str(ValueTime(1,5)) ':' num2str(ValueTime(1,6)) ' for journal ' num2str(n1)]);
VecA=192:1:198;
VecA=[VecA 65];
Veca=224:1:230;
Veca=[Veca 97];
VecC=[199 67];
Vecc=[231 99];
VecE=200:203;
VecE=[VecE 69];
Vece=232:1:235;
Vece=[Vece 101];
VecI=204:207;
VecI=[VecI 73];
Veci=236:1:239;
Veci=[Veci 105];
Vecn=[241 110];
VecO=210:214;
VecO=[VecO 216 79];
Veco=242:1:246;
Veco=[Veco 248 111];
VecU=217:1:220;
VecU=[VecU 85];
Vecu=249:1:252;
Vecu=[Vecu 117];
VecY=[221 89];
Vecy=[253 121];
Vecs=[223 115];
VecSpecialCharacters=[{VecA} {Veca} {VecC} {Vecc} {VecE} {Vece} {VecI} {Veci} {Vecn} {VecO} {Veco} {VecU} {Vecu} {VecY} {Vecy} {Vecs}];
for n2=1:33
    n2
    eval(['VecValueTemp=VecResultsCoAuthors' num2str(n2) 'j1y1m2;']);
    eval(['VecValueTemp3=VecResultsCoAuthors' num2str(n2) 'j1y1m1;']);
    eval(['VecValueTemp2=VecResultsNameCoAuthors' num2str(n2) 'j1y1m;']);
    eval(['VecValueTemp4=VecResultsOtherAuthors' num2str(n2) 'j1y1m2;']);
    eval(['VecValueTemp6=VecResultsOtherAuthors' num2str(n2) 'j1y1m1;']);
    eval(['VecValueTemp5=VecResultsNameOtherAuthors' num2str(n2) 'j1y1m;']);
    VecValueTemp=[VecValueTemp VecValueTemp4];
    VecValueTemp2=[VecValueTemp2 VecValueTemp5];
    VecValueTemp3=[VecValueTemp3 VecValueTemp6];
%     if sum(sum(abs(VecValueTemp-VecValueTemp3)))>0
%         return
%     end
    if size(VecValueTemp,2)~=size(VecValueTemp2,2)
        return
    end
%     size(VecValueTemp,2)
%     for n3=1:size(VecValueTemp,2)-1
%         if sum(VecValueTemp(:,n3))>=1
%             ValueAuthor=VecValueTemp2{1,n3};
%             for n4=n3+1:size(VecValueTemp,2)
%                 if sum(VecValueTemp(:,n4))>=1
%                     ValueAuthor2=VecValueTemp2{1,n4};
%                     if strcmps(ValueAuthor,ValueAuthor2,VecSpecialCharacters)>=0.99
%                         VecValueTemp(:,n3)=VecValueTemp(:,n3)+VecValueTemp(:,n4);
%                         VecValueTemp(:,n4)=[-50;-50];
%                         VecValueTemp3(:,n3)=VecValueTemp3(:,n3)+VecValueTemp3(:,n4);
%                         VecValueTemp3(:,n4)=[-50;-50];
%                         VecValueTemp2(1,n4)={[]};
%                     end
%                 end
%             end
%         end
% %         if mod(n3,1000)==0
% %             n3
% %         end
%     end
%     n3=size(VecValueTemp,2);
%     while n3>=1
%         if sum(VecValueTemp(:,n3))==-100
%             VecValueTemp(:,n3)=[];
%             VecValueTemp3(:,n3)=[];
%             VecValueTemp2(:,n3)=[];
%         end
%         n3=n3-1;
%     end
    eval(['VecResultsAuthors' num2str(n2) 'j1y1m2=VecValueTemp;']);
    eval(['VecResultsAuthors' num2str(n2) 'j1y1m1=VecValueTemp3;']);
    eval(['VecResultsNameAuthors' num2str(n2) 'j1y1m=VecValueTemp2;']);
end
ValueFile=['FileAnalysisEditorCoAuthors' num2str(n1) 'RestrictedYear2Month8Temp.mat'];
VecResults1=1;
ValueTemp='save([ValueFolderTemp2 ValueFile]';
for n65=1:33
    n1=1;
    n3=1;
    ValueTemp=[ValueTemp ',''VecResultsAuthors' num2str(n65) 'j' num2str(n1) 'y' num2str(n3) 'm1'',''VecResultsAuthors' num2str(n65) 'j' num2str(n1) 'y' num2str(n3) 'm2'',''VecResultsNameAuthors' num2str(n65) 'j' num2str(n1) 'y' num2str(n3) 'm'''];
end
ValueTemp=[ValueTemp ',''ValueMaxDate1'',''ValueMaxDate2'',''VecGroupCoAuthors'',''VecResults1'');'];
eval(ValueTemp);
ValueTime=clock();
disp(['End of the processing at ' num2str(ValueTime(1,4)) ':' num2str(ValueTime(1,5)) ':' num2str(ValueTime(1,6)) ' for journal ' num2str(n1)]);
